home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 201-225 / disk_201 / draco / src / complextest.d < prev    next >
Text File  |  1992-05-06  |  870b  |  30 lines
  1. #drinc:opdef.g
  2. #drinc:complex.g
  3.  
  4. proc main()void:
  5.     complex a, b;
  6.  
  7.     cmplInitialize();
  8.     write("a: ");
  9.     readln(a);
  10.     write("b: ");
  11.     readln(b);
  12.     writeln("a = ", a, ", b = ", b);
  13.     writeln("a + b = ", a + b);
  14.     writeln("a - b = ", a - b);
  15.     writeln("a * b = ", a * b);
  16.     writeln("a / b = ", a / b);
  17.     writeln("a * 2 = ", a * complex(2.0, 0.0));
  18.     writeln("real of a, imag of b = ", cmpl(cmplRe(a), cmplIm(b)));
  19.     writeln("cmplNorm(a) = ", cmplNorm(a));
  20.     writeln("cmplAbs(a) = ", cmplAbs(a));
  21.     writeln("cmplSqrt(a) = ", cmplSqrt(a));
  22.     writeln("cmplArg(a) = ", cmplArg(a));
  23.     writeln("cmplExp(a) = ", cmplExp(a));
  24.     writeln("cmplLog(a) = ", cmplLog(a));
  25.     writeln("cmplSin(a) = ", cmplSin(a));
  26.     writeln("cmplCos(a) = ", cmplCos(a));
  27.     writeln("cmplTan(a) = ", cmplTan(a));
  28.     writeln("cmplAtan(a) = ", cmplAtan(a));
  29. corp;
  30.